<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>2</cardCount>
<cardID>3021</cardID>
<listID>2179</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on OpenStackglobal s1,s2,s3,s4,s5global q1,q2,q3,q4,q5global d1,d2,d3,d4,d5global r1,r2,r3,r4,r5global invflgglobal ipjnm,ipjnoglobal icust,idate,invglobal itl,iadd,icty,iprov,icodecreate menu "customers"put "find customer,information,main menu,new customer" into menu "customers" with ¬menumsg "doCust,doInfo,doMain,NewCust"if invflg ="yes" thenlock screenput icust into tempget the number of cardsput it into temp2put 1 into countrepeat while count <= temp2set cursor to busyif temp = bg field custno thenput bg field title into itlput bg field city into ictyput bg field address into iaddput bg field province into iprovput bg field code into icodeelsego nextend ifadd 1 to countend repeatunlock screen with iris closego to stack "price_list"end ifend openStackon closeStackreset menubarend closeStackon doInfoplay "boing"lock screenshow bg field "info"unlock screen with iris openwait until the mouseClicklock screenhide bg field "info"unlock screen with iris closeend doInfoon doCustlock screenput bg field 13 into tempgo nextget the number of cardsput it into temp2put 1 into countrepeat while count < temp2set cursor to busyif temp = bg field custno thenelsego nextend ifadd 1 to countend repeatunlock screen with iris closeend doCuston doMaingo to stack "inv_application"end doMainon NewCustdoMenu "New Card"end NewCuston CloseStackreset menubarend CloseStack</script>
